directory<-Sys.getenv("US_Ineq_Repl")
Scripts<-file.path(directory,"Scripts","CH")
setwd(Scripts)
source("CH0.R")
setwd(Scripts)
source("CH1.R")
setwd(Scripts)
source("CHtab.R")
setwd(Scripts)
source("6_Figure1.R")
setwd(Scripts)
source("7_AppendixC.R")
